100 FORI=828TO914
110 READX:POKEI,X:NEXT
120 DATA169,71,160,3,141,143,2,140,144,2,96,164
130 DATA203,196,197,240,10,177,245,201,137,176,4,201
140 DATA133,176,3,76,72,235,233,133,133,197,10,10
150 DATA101,197,10,174,141,2,224,1,240,14,224,2
160 DATA240,7,224,4,208,9,24,105,40,24,105,40
170 DATA24,105,40,170,160,0,189,0,207,240,9,153
180 DATA119,2,232,200,192,10,208,242,132,198,162,255
190 DATA76,38,235
210 SYS828
230 AD=12*4096+15*256
240 FORI=0TO15:READX$:FORJ=1TOLEN(X$)
250 A=ASC(MID$(X$,J,1)):IFA=95THENA=13
260 IFA=39THENA=34
270 POKEAD+10*I+J-1,A:NEXT
280 IFJ<>11THENPOKEAD+I*10+J-1,0
290 NEXT
300 DATALIST_,RUN_,LOAD',"O[208]15,8,15,"
310 DATA"O[208]4,4,7_",CMD4_,SAVE',CLOSE15_
320 DATACLOSE4_,PEEK(,CHR$(,"LOAD'$',8"
330 DATAPRINT#,INPUT#,GOSUB,RETURN